Visual Basic Source Code

home *** CD-ROM | disk | FTP | other *** search

/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / health / medhist.frm (.txt) < prev next >

Wrap

Visual Basic Form | 1993-07-21 | 19.4 KB | 625 lines

VERSION 2.00 Begin Form medhist BackColor = &H00C0C0C0& BorderStyle = 0 'None Caption = "Form3" ClientHeight = 6840 ClientLeft = 195 ClientTop = 1905 ClientWidth = 9525 Height = 7245 Left = 135 LinkMode = 1 'Source LinkTopic = "Form3" ScaleHeight = 6840 ScaleWidth = 9525 Tag = "history" Top = 1560 Width = 9645 Begin AniPushButton AniButton2 BackColor = &H00FFFFFF& Height = 480 Left = 4395 PictDrawMode = 1 'Autosize control Picture = MEDHIST.FRX:0000 Speed = 162 TabIndex = 22 TextPosition = 2 'Left Top = 6120 Width = 480 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Back Page" Height = 465 Index = 1 Left = 360 Picture = MEDHIST.FRX:05E2 Speed = 162 TabIndex = 21 TextPosition = 1 'Right Top = 6075 Width = 1515 End Begin AniPushButton AniButton1 BackColor = &H00C0C0C0& Caption = "Next Page" Height = 465 Index = 0 Left = 6750 Picture = MEDHIST.FRX:148E Speed = 162 TabIndex = 20 TextPosition = 2 'Left Top = 6000 Width = 1440 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 4440 TabIndex = 16 Top = 5160 Width = 255 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 240 TabIndex = 7 Top = 5160 Width = 255 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 4440 TabIndex = 15 Top = 4800 Width = 255 End Begin SSCheck Check3D2 Caption = " DIABETES" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 1440 TabIndex = 32 Top = 4800 Width = 2415 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 240 TabIndex = 6 Top = 4800 Width = 255 End Begin SSCheck Check3D4 Caption = " BLOOD TRANSFER" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 5880 TabIndex = 39 Top = 4680 Width = 2655 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 4440 TabIndex = 14 Top = 4440 Width = 255 End Begin SSCheck Check3D2 Caption = " HERNIA" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 1440 TabIndex = 31 Top = 4320 Width = 2415 End Begin SSCheck Check3D4 Caption = " DEPRESSION" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 5880 TabIndex = 38 Top = 4200 Width = 2655 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 4440 TabIndex = 13 Top = 4080 Width = 255 End Begin SSCheck Check3D2 Caption = " ANEMIA" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 1440 TabIndex = 30 Top = 3840 Width = 2415 End Begin SSCheck Check3D4 Caption = " CARDIOVASCULAR" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 0 Left = 5880 TabIndex = 37 Top = 3720 Width = 2655 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 4440 TabIndex = 12 Top = 3720 Width = 255 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 480 TabIndex = 5 Top = 3480 Width = 255 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 4440 TabIndex = 11 Top = 3360 Width = 255 End Begin SSCheck Check3D4 Caption = " COPD" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 7 Left = 5880 TabIndex = 36 Top = 3240 Width = 2655 End Begin SSCheck Check3D2 Caption = " THYROID" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 1440 TabIndex = 29 Top = 3240 Width = 2415 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 4440 TabIndex = 10 Top = 3000 Width = 255 End Begin SSCheck Check3D4 Caption = " CANCER" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 5880 TabIndex = 35 Top = 2880 Width = 2655 End Begin SSCheck Check3D2 Caption = " EPILEPSY" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 1680 TabIndex = 28 Top = 2880 Width = 2415 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 480 TabIndex = 4 Top = 2880 Width = 255 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 3 Left = 480 TabIndex = 3 Top = 2640 Width = 255 End Begin SSCheck Check3D4 Caption = " ULCER" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 5 Left = 5880 TabIndex = 34 Top = 2400 Width = 2655 End Begin SSCheck Check3D2 Caption = " ARTHRITIS" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 1680 TabIndex = 27 Top = 2400 Width = 2415 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 2 Left = 480 TabIndex = 2 Top = 2160 Width = 255 End Begin SSCheck Check3D4 Caption = " SICKLE CELL" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 6 Left = 5880 TabIndex = 33 Top = 1920 Width = 2655 End Begin SSCheck Check3D2 Caption = " HYPERTENSION" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 1680 TabIndex = 26 Top = 1920 Width = 2415 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 1 Left = 480 TabIndex = 1 Top = 1800 Width = 255 End Begin SSCheck Check3D4 Caption = " CVA" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 4 Left = 5880 TabIndex = 17 Top = 1440 Width = 2655 End Begin SSCheck Check3D3 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 0 Left = 4680 TabIndex = 9 Top = 1440 Width = 255 End Begin SSCheck Check3D2 Caption = " DIABETES" Font3D = 3 'Inset w/light shading FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 12 FontStrikethru = 0 'False FontUnderline = 0 'False ForeColor = &H00FF0000& Height = 375 Index = 0 Left = 1680 TabIndex = 8 Top = 1440 Width = 2415 End Begin SSCheck Check3D1 Font3D = 0 'None ForeColor = &H00FF0000& Height = 375 Index = 0 Left = 480 TabIndex = 0 Top = 1440 Width = 255 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "FAMILY" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 3 Left = 6240 TabIndex = 25 Top = 720 Width = 1335 End Begin Label Label1 Alignment = 1 'Right Justify BackColor = &H00C0C0C0& Caption = "PATIENT" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 2 Left = 4200 TabIndex = 23 Top = 720 Width = 1335 End Begin Label Label1 BackColor = &H00C0C0C0& Caption = "FAMILY" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 1 Left = 2640 TabIndex = 24 Top = 720 Width = 1335 End Begin Label Label1 Alignment = 1 'Right Justify BackColor = &H00C0C0C0& Caption = "PATIENT" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 13.5 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 255 Index = 0 Left = 720 TabIndex = 18 Top = 720 Width = 1335 End Begin Label Label5 Alignment = 2 'Center BackColor = &H00C0C0C0& Caption = "Medical History" FontBold = -1 'True FontItalic = 0 'False FontName = "MS Serif" FontSize = 24 FontStrikethru = 0 'False FontUnderline = 0 'False Height = 495 Left = 1440 TabIndex = 19 Top = 0 Width = 6135 End Sub AniButton1_Click (index As Integer) If smartform(4) Then Select Case index Case 1 assess2.Show medhist.Hide Case 0 assess3.Show medhist.Hide End Select formcheck "Medical History" End If End Sub Sub AniButton2_Click () If smartform(4) Then menumode medhist formcheck "Medical History" End If End Sub Sub Check3D2_Click (index As Integer, Value As Integer) If check3d2(index).Value = -1 Then check3d2(index).forecolor = &H0& check3d2(index).forecolor = &HFF0000 End If End Sub Sub Check3D4_Click (index As Integer, Value As Integer) If check3d4(index).Value = -1 Then check3d4(index).forecolor = &H0& check3d4(index).forecolor = &HFF0000 End If End Sub Sub Form_Load () medhist.Move 0, 0, screen.WIDTH, screen.height anibutton1(1).Move .1 * anibutton1(1).WIDTH, medhist.height - 1.1 * anibutton1(0).height anibutton2.Move (medhist.WIDTH - anibutton2.WIDTH) / 2, medhist.height - 1.1 * anibutton2.height anibutton1(0).Move medhist.WIDTH - 1.1 * anibutton1(0).WIDTH, medhist.height - 1.1 * anibutton1(1).height medhist.Scale (0, 0)-(8, 12) LABEL1(0).Move .25, 1.5 LABEL1(1).Move 2, 1.5 LABEL1(2).Move 4, 1.5 LABEL1(3).Move 5.75, 1.5 For N = 1 To 8 Check3D1(N - 1).Move LABEL1(0).LEFT + LABEL1(0).WIDTH / 2.3, 2.5 + (N - 1) Next N For N = 1 To 8 check3d2(N - 1).Move LABEL1(1).LEFT, 2.5 + (N - 1) Next N For N = 1 To 8 CHECK3D3(N - 1).Move LABEL1(2).LEFT + LABEL1(2).WIDTH / 2.3, 2.5 + (N - 1) Next N For N = 1 To 8 check3d4(N - 1).Move LABEL1(3).LEFT, 2.5 + (N - 1) Next N End Sub